home *** CD-ROM | disk | FTP | other *** search
/ MacHack 1999 / MacHack 1999.toast / The Hacks / NetPokerForMacOSX_Server / HoldEmHigh / IRCTask.m < prev    next >
Encoding:
Text File  |  1999-06-26  |  12.1 KB  |  450 lines
  1. #import "IRCTask.h"
  2. #import "poker.h"
  3.  
  4. @implementation IRCTask
  5.  
  6. + (id)sharedIRCTask {
  7.    static IRCTask *task = nil;
  8.    if (task == nil) {
  9.     task = [[IRCTask alloc] init];
  10.     }
  11.     return task;
  12. }
  13.  
  14. #define IRC_EXECUTABLE [[NSBundle mainBundle] pathForResource:@"irc" ofType:@""]
  15.  
  16. - (void)pushStringOverWire:(const char *)buf {
  17.     [[to_irc fileHandleForWriting] writeData:[NSData dataWithBytes:buf length:strlen(buf)]];
  18. }
  19.  
  20. - (void)stringToTBot:(const char *)buf {
  21.     [self pushStringOverWire:[[NSString stringWithFormat:@"/msg tbot p %s\n",buf]cString]];
  22. }
  23.  
  24. - (void)returnFromVacation {
  25.     [self stringToTBot:"back"];
  26. }
  27.  
  28. - (void)goOnVacation {
  29.     [self stringToTBot:"vacation"];
  30. }
  31.  
  32. - (void)bet:(int)amount {
  33.     [self stringToTBot:[[NSString stringWithFormat:@"raise %d",amount]cString]];
  34. }
  35.  
  36. - (void)minBet {
  37.     [self stringToTBot:"TODO"];
  38. }
  39.  
  40. - (void)pushAllIn {
  41.     [self stringToTBot:"raise 2000000"];
  42. }
  43.  
  44. - (void)call {
  45.     [self stringToTBot:"call"];
  46. }
  47.  
  48. - (void)fold {
  49.     [self stringToTBot:"fold"];
  50. }
  51.  
  52. - (void)halfPot {
  53.     [self stringToTBot:"TODO"];
  54. }
  55.  
  56. - (int)pot {
  57.     [self stringToTBot:"raise pot"];
  58.     return 0;
  59. }
  60.  
  61. - (void)leaveTable{
  62.     [self stringToTBot:"quit"];
  63. }
  64.  
  65. - (void)joinTable{
  66.     [self pushStringOverWire:"/join #tourney\n"];
  67.     [self stringToTBot:"join i"];
  68. }
  69.  
  70.  
  71. - (Card *)cardFromRankChar:(char)rank_char suitChar:(char)suit_char
  72. {
  73.   const char *suits = "Xcshd";
  74.   const char *ranks = "AKQJT98765432";
  75.   Card *retval;
  76.   Suit s;
  77.   Rank r;
  78.   char *sp;
  79.   char *rp;
  80.  
  81.   s = 0;
  82.   r = 0;
  83.   sp = strchr (suits, suit_char);
  84.   rp = strchr (ranks, rank_char);
  85.   if (sp && rp)
  86.     {
  87.       s = sp - suits;
  88.       r = rp - ranks;
  89.     }
  90.   retval = [Card cardWithSuit:s rank:r];
  91.   return retval;
  92. } 
  93.  
  94. #define TRY_TO_MATCH(sscanf_call, n_expected, method_call) \
  95.   do                                                       \
  96.     if (sscanf sscanf_call == n_expected)                  \
  97.       {                                                    \
  98.         method_call;                                       \
  99.         goto SUCCESS;                                      \
  100.       }                                                    \
  101.   while (FALSE)
  102.  
  103. -(void) addPlayerHelper:(const char *) player cash:(int) amount char1:(char) c1 char2:(char)c2
  104. {
  105.   BOOL is_vaced;
  106.   BOOL is_button;
  107.   Player *p = [pokerTable findPlayerWithName:player];
  108.   [pokerTable addPlayer:player cash:amount];
  109.   is_vaced = c1 == 'V';
  110.   is_button = (c1 == 'B') || (c2 == 'B');
  111.   [p setOnVacation:is_vaced];
  112.   if (is_button) [pokerTable setButtonPlayer:player];
  113.  
  114. }
  115.  
  116. - (BOOL) parseLine:(NSData *)line
  117. {
  118.   char *buf, *orig_buf;
  119.   char *player;
  120.   int n_players;
  121.   BOOL retval;
  122.   int nleft;
  123.   char bang, dot;
  124.   int small_blind;
  125.   int big_blind;
  126.   int blind_remaining;
  127.   char *blind_remaining_units;
  128.   int hand_no;
  129.   int blind;
  130.   int pot;
  131.   int to_call;
  132.   int amount;
  133.   char *by_whom;
  134.   char r1, r2, r3, r4, r5;
  135.   char s1, s2, s3, s4, s5;
  136.   char colon;
  137.   char *hand_string;
  138.   char *message_from;
  139.   volatile BOOL is_public;
  140.  
  141.   buf = alloca ([line length] + 1);
  142.   [line getBytes:buf];
  143.   buf[[line length]] = 0;
  144.   orig_buf = buf;
  145.  
  146.   /* strip portion that shows this coming from TBot */
  147.   if (buf[0] != '<' && buf[0] != '-' && buf[0] != '*')
  148.     return FALSE;
  149.   else
  150.     {
  151.       char desired;
  152.  
  153.       desired = ( buf[0] == '<') ? '>' : buf[0];
  154.       buf = strchr (buf+1, ' ');
  155.       if (!buf || buf[-1] != desired)
  156.     return FALSE;
  157.       else
  158.     {
  159.       int len;
  160.  
  161.           --buf;
  162.       len = buf - orig_buf - 1;
  163.       if (len <= 0)
  164.         return FALSE;
  165.       message_from = alloca (len + 1);
  166.       memcpy (message_from, orig_buf+1, len);
  167.       message_from[len] = 0;
  168.       buf += 2;
  169.       is_public = orig_buf[0] == '<';
  170.     }
  171.     }
  172.  
  173.   player = alloca ([line length] + 1);
  174.   blind_remaining_units = alloca ([line length] + 1);
  175.   by_whom = alloca ([line length] + 1);
  176.   hand_string = alloca ([line length] + 1);
  177.   retval = TRUE;
  178.  
  179.   if (strcmp (message_from, "TBot") != 0) {
  180.         [pokerTable player:message_from messages:buf];
  181.     return TRUE;
  182.   }
  183.  
  184. #if 0
  185.   TRY_TO_MATCH
  186.     (
  187.      (buf, "%s has joined the game.  We now have %d players.", player, &nleft), 2,
  188.      [pokerTable addPlayer:player cash:5000]);
  189. #endif
  190.  
  191.   TRY_TO_MATCH
  192.     (
  193.      (buf, "%s quits.  We now have %d players.", player, &nleft), 2,
  194.      [pokerTable playerQuits:player n_left:nleft]);
  195.  
  196.   TRY_TO_MATCH
  197.     (
  198.      (buf, "Tourney started by %s!", player), 1,
  199.        [pokerTable readyToBeginGame]);
  200.  
  201.   TRY_TO_MATCH
  202.     (
  203.      (buf, "The blinds are currently $%d and $%d.", &small_blind, &big_blind), 2,
  204.      [pokerTable blindsAre:small_blind and:big_blind]);
  205.  
  206.   TRY_TO_MATCH
  207.     (
  208.      (buf, "Blinds will double in %d %s.", &blind_remaining, blind_remaining_units), 2,
  209.      [pokerTable blindsWillDoubleIn:blind_remaining units:blind_remaining_units]);
  210.  
  211.   TRY_TO_MATCH
  212.     (
  213.      (buf, "Game #%d, %d players.  Dealing Holdem high", &hand_no, &n_players), 2,
  214.      [pokerTable beginAddingPlayers]);
  215.  
  216.   TRY_TO_MATCH
  217.     (
  218.      (buf, "%s blinds $%d.  Pot is now $%d.", player, &blind, &pot), 3,
  219.      [pokerTable player:player blinds:blind potNow:pot allIn:NO]);
  220.  
  221.   TRY_TO_MATCH
  222.     (
  223.      (buf, "%s blinds $%d and is all in.  Pot is now $%d.", player, &blind, &pot), 3,
  224.      [pokerTable player:player blinds:blind potNow:pot allIn:YES]);
  225.  
  226.   TRY_TO_MATCH
  227.     (
  228.      (buf, "%s is next to act. (%d to call)", player, &to_call), 2,
  229.      [pokerTable player:player toCall:to_call]);
  230.  
  231.   TRY_TO_MATCH
  232.   (  
  233.    (buf, "%s folds.  We now have %d players in the hand.", player, &n_players), 2,
  234.    [pokerTable player:player foldsLeaving:n_players]);
  235.  
  236.   TRY_TO_MATCH
  237.   (
  238.    (buf, "%s calls $%d.  Pot is now $%d.", player, &amount, &pot), 3,
  239.      [pokerTable player:player calls:amount potNow:pot allIn:NO]);
  240.  
  241.   TRY_TO_MATCH
  242.     (
  243.      (buf, "%s calls $%d and is all in.  Pot is now $%d.", player, &amount, &pot), 3,
  244.      [pokerTable player:player calls:amount potNow:pot allIn:YES]);
  245.  
  246.   TRY_TO_MATCH
  247.     (
  248.      (buf, "%s has sent %s on vacation!", player, by_whom), 2,
  249.      [pokerTable player:player vacationedBy:by_whom]);
  250.  
  251.   TRY_TO_MATCH
  252.     (
  253.      (buf, "%s checks%c", player, &dot), 2,
  254.      [pokerTable playerChecks:player]);
  255.  
  256.   TRY_TO_MATCH
  257.     (
  258.      (buf, "Board:      %c%c %c%c %c%c %c%c %c%c", &r1, &s1, &r2, &s2, &r3, &s3, &r4, &s4, &r5, &s5), 10,
  259.      {[pokerTable publicCardNumber:0 didShowCard:[self cardFromRankChar:r1 suitChar:s1]];
  260.       [pokerTable publicCardNumber:1 didShowCard:[self cardFromRankChar:r2 suitChar:s2]];
  261.       [pokerTable publicCardNumber:2 didShowCard:[self cardFromRankChar:r3 suitChar:s3]];
  262.       [pokerTable publicCardNumber:3 didShowCard:[self cardFromRankChar:r4 suitChar:s4]];
  263.       [pokerTable publicCardNumber:4 didShowCard:[self cardFromRankChar:r5 suitChar:s5]];});
  264.  
  265.   TRY_TO_MATCH
  266.     (
  267.      (buf, "Board:      %c%c %c%c %c%c %c%c", &r1, &s1, &r2, &s2, &r3, &s3, &r4, &s4), 8,
  268.      {[pokerTable publicCardNumber:0 didShowCard:[self cardFromRankChar:r1 suitChar:s1]];
  269.       [pokerTable publicCardNumber:1 didShowCard:[self cardFromRankChar:r2 suitChar:s2]];
  270.       [pokerTable publicCardNumber:2 didShowCard:[self cardFromRankChar:r3 suitChar:s3]];
  271.       [pokerTable publicCardNumber:3 didShowCard:[self cardFromRankChar:r4 suitChar:s4]];});
  272.  
  273.   TRY_TO_MATCH
  274.     (
  275.      (buf, "Board:      %c%c %c%c %c%c", &r1, &s1, &r2, &s2, &r3, &s3), 6,
  276.      {[pokerTable publicCardNumber:0 didShowCard:[self cardFromRankChar:r1 suitChar:s1]];
  277.       [pokerTable publicCardNumber:1 didShowCard:[self cardFromRankChar:r2 suitChar:s2]];
  278.       [pokerTable publicCardNumber:2 didShowCard:[self cardFromRankChar:r3 suitChar:s3]];});
  279.  
  280.   TRY_TO_MATCH
  281.     (
  282.      (buf, "%s bets $%d.  Pot is now $%d.", player, &amount, &pot), 3,
  283.      [pokerTable player:player bets:amount potNow:pot allIn:NO]);
  284.  
  285.   TRY_TO_MATCH
  286.     (
  287.      (buf, "%s bets $%d and is all in.  Pot is now $%d.", player, &amount, &pot), 3,
  288.      [pokerTable player:player bets:amount potNow:pot allIn:YES]);
  289.  
  290.   TRY_TO_MATCH
  291.     (
  292.      (buf, "%s is back from vacation%c", player, &bang), 2,
  293.      [pokerTable playerBackFromVacation:player]);
  294.  
  295.   TRY_TO_MATCH
  296.     (
  297.      (buf, "%s wins $%d.", player, &amount), 2,
  298.      [pokerTable player:player wins:amount withHand:NULL]);
  299.  
  300.   TRY_TO_MATCH
  301.     (
  302.      (buf, "High: %s wins $%d with %s.", player, &amount, hand_string), 3,
  303.      [pokerTable player:player wins:amount withHand:hand_string]);
  304.  
  305.   TRY_TO_MATCH
  306.     (
  307.      (buf, "Players' hands%c", &colon), 1,
  308.      [pokerTable aboutToShowHands]);
  309.  
  310.   TRY_TO_MATCH
  311.     (
  312.      (buf, "Your hole cards are: %c%c %c%c", &r1, &s1, &r2, &s2), 4,
  313.      [pokerTable userGotFirstHoleCard:[self cardFromRankChar:r1 suitChar:s1]
  314.                   secondCard:[self cardFromRankChar:r2 suitChar:s2]]);
  315.  
  316.   TRY_TO_MATCH
  317.     (
  318.      (buf, "%s : %c%c %c%c", player, &r1, &s1, &r2, &s2), 5,
  319.      {Player *p;
  320.       p = [pokerTable findPlayerWithName:player];
  321.       [[p holeHand] setFirstHoleCard:[self cardFromRankChar:r1 suitChar:s1]];
  322.       [[p holeHand] setSecondHoleCard:[self cardFromRankChar:r2 suitChar:s2]];});
  323.  
  324.   TRY_TO_MATCH
  325.     (
  326.      (buf, "%s raises $%d.  Pot is now $%d.", player, &amount, &pot), 3,
  327.      [pokerTable player:player raises:amount potNow:pot allIn:NO]);
  328.  
  329.   TRY_TO_MATCH
  330.     (
  331.      (buf, "%s raises $%d and is all in.  Pot is now $%d.", player, &amount, &pot), 3,
  332.      [pokerTable player:player raises:amount potNow:pot allIn:YES]);
  333.  
  334.   TRY_TO_MATCH
  335.     (
  336.      (buf, "%s is busted%c", player, &bang), 2,
  337.      [pokerTable playerBusted:player]);
  338.  
  339.   TRY_TO_MATCH
  340.     (
  341.      (buf, "%s has quit%c", player, &dot), 2,
  342.      [pokerTable playerQuit:player]);
  343.  
  344.   if (buf[0] == ' ' || buf[0] == 'V' || buf[0] == 'B')
  345.     {
  346.       char c1, c2;
  347.  
  348.       if (sscanf (buf, "%c%c%s %d", &c1, &c2, player, &amount) == 4)
  349.     {
  350.           [self addPlayerHelper:player cash:amount char1:c1 char2:c2];
  351.           buf = strchr (buf+2, ' ');
  352.       while (*buf == ' ')
  353.         ++buf;
  354.       buf = strchr (buf, ' ');
  355. #if 0
  356.       while (strncmp (buf, "   ", 3) == 0 || (*buf == ' ' && buf[1] != ' '))
  357.         ++buf;
  358. #else
  359.       buf += 3;
  360. #endif
  361.           if (sscanf (buf, "%c%c%s %d", &c1, &c2, player, &amount) == 4)
  362.             {
  363.               [self addPlayerHelper:player cash:amount char1:c1 char2:c2];
  364.               buf = strchr (buf+2, ' ');
  365.               while (*buf == ' ')
  366.                 ++buf;
  367.               buf = strchr (buf, ' ');
  368. #if 0
  369.               while (strncmp (buf, "   ", 3) == 0 || (*buf == ' ' && buf[1] != ' '))
  370.                 ++buf;
  371. #else
  372.           buf += 3;
  373. #endif
  374.               if (sscanf (buf, "%c%c%s %d", &c1, &c2, player, &amount) == 4)
  375.                   [self addPlayerHelper:player cash:amount char1:c1 char2:c2];
  376.         }
  377.         }
  378.     }
  379.  
  380.   retval = FALSE;
  381.  SUCCESS:
  382.   return retval;
  383. }
  384.  
  385.  
  386. - (void) gotSomeData:(NSNotification *)note
  387. {
  388.   NSData *data;
  389.   const char *start_bytes, *stop_bytes;
  390.   int length;
  391.  
  392. #warning THIS CODE ASSUMES LINE WONT SPLIT ACROSS DATA
  393.  
  394.   data = [[note userInfo] objectForKey:NSFileHandleNotificationDataItem];
  395.   start_bytes = [data bytes];
  396.   length = [data length];
  397.   stop_bytes = start_bytes;
  398.   while (length > 0)
  399.     {
  400.       while (length > 0 && *stop_bytes != '\n')
  401.     {
  402.       ++stop_bytes;
  403.       --length;
  404.     }
  405.       if (stop_bytes > start_bytes)
  406.     {
  407.       NSData *new_data;
  408.  
  409.       new_data = [NSData dataWithBytes:start_bytes length:stop_bytes - start_bytes];
  410.       [pokerTable setStatusString:[[[NSString alloc]initWithData:new_data encoding:[NSString defaultCStringEncoding]]autorelease]];
  411.       [self parseLine:new_data];
  412.     }
  413.       start_bytes = stop_bytes + 1;
  414.       stop_bytes = start_bytes;
  415.       --length;
  416.     }
  417.   [[from_irc fileHandleForReading] readInBackgroundAndNotify];
  418. }
  419.  
  420. - (void)makeIRCConnection:(PokerTable *)table
  421. {
  422.     NSMutableArray *args = [NSMutableArray array];
  423.     pokerTable = table;
  424.     aTask = [[NSTask alloc] init];
  425.     to_irc = [NSPipe pipe];
  426.     from_irc = [NSPipe pipe];
  427. #if 1
  428.     [args addObject:@"-d"];
  429.     [args addObject:@"deadhead"];
  430.     [args addObject:@"irc.poker.net"];
  431.     [aTask setLaunchPath:IRC_EXECUTABLE];
  432. #else
  433.     [args addObject:@"/Local/Users/machack/ctm/poker/tbot2/typescript_FIRST_OFFICIAL_SCORE"];
  434.     [aTask setLaunchPath:@"/bin/cat"];
  435. #endif
  436.     [aTask setArguments:args];
  437.     [aTask setStandardInput:to_irc];
  438.     [aTask setStandardOutput:from_irc];
  439.     [[NSNotificationCenter defaultCenter]
  440.      addObserver:self
  441.      selector:@selector(gotSomeData:)
  442.      name:NSFileHandleReadCompletionNotification object:nil];
  443.  
  444.     [[from_irc fileHandleForReading] readInBackgroundAndNotify];
  445.     [pokerTable newPokerTable];
  446.     [aTask launch];
  447.  
  448. }
  449. @end
  450.